home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / programs / iconian / macros / bevel.icrx < prev    next >
Text File  |  1995-09-17  |  802b  |  50 lines
  1. /* An example REXX script for Iconian */
  2.  
  3. /* Draws a "bevel" of the current brush! */
  4.  
  5. address 'ICONIAN.1'
  6. options results
  7.  
  8. /* grab current mouse coords */
  9. 'getcoord x'
  10. mx=result
  11. 'getcoord y'
  12. my=result
  13.  
  14. /* Lock the GUI so the user can interfere! */
  15. lockgui
  16.  
  17. /* find white and black pens */
  18.  
  19. 'closestcolor 255 255 255'
  20. white=result
  21.  
  22. 'closestcolor 0 0 0'
  23. black=result
  24.  
  25. /* Select the paste-brush method */
  26. brush
  27.  
  28. /* Make it paste-color method */
  29. color
  30.  
  31. /* ...and, set the pen to black...*/
  32. setfgcolor black
  33.  
  34. /* stamp the black brush +1, +1 */
  35. moveto mx+1 my+1
  36. leftmouse click
  37.  
  38. /* do the same thing, but white at -1,-1 */
  39. setfgcolor white
  40. moveto mx-1 my-1
  41. leftmouse click
  42.  
  43. /* Now, paste the brush with matte, over the beveled image */
  44. matte
  45. moveto mx my
  46. leftmouse click
  47.  
  48. /* Let go of the GUI. */
  49. unlockgui
  50.